unit uInputBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, uDM;

type
  TInputBase = class(TForm)
    btn4: TButton;
    btn3: TButton;
    btn2: TButton;
    btn1: TButton;
    grd1: TDBGrid;
    btn9: TButton;
    btn8: TButton;
    btn7: TButton;
    btn6: TButton;
    btn5: TButton;
    ds1: TDataSource;
    qry1: TADOQuery;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    Nav: TDataNav;
  public
    { Public declarations }
  end;



implementation


{$R *.dfm}

procedure TInputBase.FormDestroy(Sender: TObject);
begin
  Nav.free;
end;

procedure TInputBase.FormCreate(Sender: TObject);
begin
  qry1.Open;
//  grd1.ReadOnly := true;

  Nav := TDataNav.Create(qry1, btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, btn9);

end;

procedure TInputBase.FormShow(Sender: TObject);
begin
  qry1.Requery();
end;

end.
